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ABSTRACT 


The conceptual phase of a helicopter design 


includes comparison of configurations which will meet 


the specified performance requirements. To perform 
this comparison, the designer must have the proper 
tools at hand. This thesis presents an interactive 


computer program for the conceptual design of tandem 
reters helicopters ltis is imtended to complement the 
existing single rotor helicopter design program written 
for the Helicopter Design course, AE-4306, taught at 
the Naval Postgraduate School, Monterey, California. 

This program manages the myriad of interrelated 
parameters by prompting for input, providing the 
opportunity for changes, and displaying the results. 
This relieves the (student ) designer of the tedious 
calculations and bookkKeeping, thus allowing time for a 
more thorough analysis of the design. 
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I. INTRODUCTION 


A. BACKGROUND 

Helicopter Design, AE-4306, as taught at the Naval 
Postgraduate School requires the "Conceptual Design" of 
a specific mission-capable helicopter as one of the 
course requirements. 

Conceptual Design is the first of five phases where 
configurations are compared; cost, weight and size are 
estimated; feasibility is studied; and then follow-on 
recommendations are made [Ref. 1]. It is the first of 
these, comparison of configurations, which prompted 
this thesis. 

Tandem rotor helicopters have been successfully 
employed since March of 1945 when the PV-3 Dogship was 
developed for the U.S. Navy. As with all else in 
aviation, humble beginnings give way to technology and 
ingenuity, so that by the mid 1960’s, Boeing Vertol had 
developed the H-46 Sea Knight and H-47 Chinook. Both 
are still currently in use, flying today in all Gauge 
U.S. garmed services, various commercial operations 
(logging, oil production, etc.) as well as servicing in 
other countries such as Japan, Canada, Great Britain 
and Sweden. 

To the casual observer the appeal of the tandem 
rotor scheme tis obvious--both rotors provide thrust in 
the correct direction (up) and therefore a fraction of 
the power isn’t wasted pushing the helicopter sideways, 
as in the tail roter cont ll Bumat ten. Although somewhat 
true, this observation does require clarification. 
Tail rotors typically absorb 10 to 20 percent Of JGae 
engine power required to hover [Ref. 2]. This 
decreases in forward flight because of translational 
lift effects which produce a decrease in main YoO@e 
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COpgmeebeebcmmrOovides a Slight reduction in tail rotor 
power. Tandems also have a power penalty due to 
interference effects found where the two rotor disks 
Overlap. oobi ieGatium, this iSmeaccounted for by 
correcting induced power with a "rotor interference 
factor", K, which has been determined empirically to be 
Danie DOmmomMeomrotueor shatt Spacing ratio [Ref. 3 and 
Ref. 4]. HoOrwetLorvara=: liont, another factor must be 
Pic MiG emeic s imdiuced power correction factor". A 
combination OL these factors results in losses 
comparable to those of the tail rotor configuration, 
depending on the regime of flight. It is noticeable 
that tandems appear better in hover and low forward 
velocities with the single rotor having advantages at 
Hedtume tO Miegh forward velocity. However, these 
apparent respective advantages are not clearly defined, 
nor are they easily quantified. 

Reference [5] ore an interactive program for 
conceptual helicopter design, but is restricted to the 
wwe rOGOor COntiguration. Mess tcmesls preaeject sought 
to complete the™ designer ’s weeO. BDOx' S wien .the 
development of a Tandem Rotor Helicopter Design 
program. Configuration selection could then be based 
upon design superiority and mission requirement rather 
nan phieosopnilecal whim’. 

Aside from the nebulous factors discussed above, 
there are distinct advantages and disadvantages toa 
tandem rotor system. Some advantages of the tandem 
rotor design are: 


eee omega Cheumbent in the counter- 
rotating rotor system. 


—-— No tail rotor. losses or side force that 
beGUlTe CeOmpecnisation. 


- Lighter drive system due to smaller diameter, 
Deon mem rotors “therefore less speed 
reduction). 


- Much larger range in center of gravity 
locations. 


- Relatively small et pest 34 wind direction on 
hover capabllity.  [xer. «z 


As important as the advantages of a given system 
Bre its limitations must be considered also. 
Disadvantages, relative to single rotor systems, are: 
- Greater directional instability, due to 
decreased distance from center of gravity 
position to tail surface. 
- High moment of inertia about the vertical 
axhS due to transmission mass located at each 
end. 


- Higher induced power required on aft rotor 
due to the forward rotor downwash. 


- Vibration--twice as | rotors tend to 
produce greater vibration problems_than a 
single rotor configuration. [Ref . an 
Although some of these are significant problems, 
nene are insurmountable. Furthermore, the 
technological developments of the past 20 years are 
updating the previous solutions to these design 
problems with current computer and material technology. 
For example, the Army is currently updating its #ea, 
fleet to the "D" model Chinook and the Navy and Marine 
Corps are upgrading their H-46’s through the 
Survivability, Reliability and Maintainability 
(S R & M) program. Both programs are intended to 
extend service life well into the mext cen Gum, - 


B. OBJECTIVES 

The primary objective of this thesis project was to 
write a computer program for the conceptual desie@iaa. 
tandem rotor helicopters. secondary goals included: 
interactivity for design flexibility; user Ttriendl imgee 
so people will use it; compactness, for microcompater 
application; and accuracy © so the results are 
meaningful. All of this required the development of a 
substantial amount of program software. 
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The program will be available to students taking 
the Helicopter Design course, AE-4306. This will 
provide the option to easily design a helicopter of 
either rotor system scheme depending on the specific 
mission that it will be required to perform. 


II. APPROACH AND SOLUTION 


The initial intent of this»*project waste integrate 


a tandem rotor design section into the existing 
Helicopter Design program written by LT Bob Drake [Ref. 
5]. This, however, proved hopeless as the differences 


in design, equations, input and output became apparent. 
The problem then became to develop the program ina 
format compatible with reference 5, but be totally 
independent. 

"User friendliness" is a key phrase commonly heard 
these days in the computer business, and with good 
reason. People want to use the computer as a tool to 
accomplish a given task without themselves becoming a 
Slave to the green screen and microchip. To this) 3am 
Tandem Rotor Helicopter Design was written as a menu 
driven, interactive program that would, to the maximum 
extent possible, trap errors andreturn to a menu oF 
input field without terminating the program. 

Microsoft GWBASIC was chosen as the language, not 
only to be consistent with Reference 5 but also because 
of its compatibility with I Bru, and all true 
compatibles. Furthermore, since there was only a small 
amount of serious number crunching to be done, vast 
speed was not required; hence, GWBASIC was the logical 
Chie tee: 

The program is formatted into a ‘sequence jae 
chapters that roughly correspond to the Helicopter 
Design Manual [Ref. 1]. Although tandems are different 


in some respects, they share many similarities with 
their sinwie rotor “<consging . Therefore, the program 
references the design manual frequently, and also 


provides additional, tandem rotor specific, information 
when appropriate. This provides the student desteae 
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lac ree aia ee eee 


hard copy reference material to complement’ the 
"information" and "help windows" that are built into 
the program. 

Each chapter is designed to run as a follow-on to 
the previous, with provisions to make changes if 
desired. New data is then entered, when prompted, into 
specific input fields. When data entry is complete the 
computer will calculate the results and display them on 
an output field, usually on the same screen, so that 
input and output can be viewed simultaneously. The 
"ANY CHANGES?" prompt will then appear allowing the 
adjustment of parameters to meet design specification. 
Once a design is refined, a print-screen command gives 
a hard copy of the results, then the appropriate menu 
selection proceeds to the next section or returns to 
the main menu. All chapters are linked via the "chain" 
command which not only passes control and executes the 
next program, but also passes all variables. 

One important feature of this program is the use of 
FLASHUP WINDOWSE [Ref. 6] to display menus, information 
and help to the user. This outstanding application 
software allows addition of useful documentation that 
can be easily accessed by the user. By simply pressing 
ALT-F1, with the cursor on the appropriate line, a 
"help window" will be displayed for each major input 
parameter, pressing "Enter" clears the window and 
Gecuris tO the input line. Information windows will 
display automatically when a particular chapter or 
section is selected and will remain as long as desired. 
Again, "Enter" clears the window and proceeds with the 
program. Menus function in much the same fashion, 
Sweeper unat “they remain until the user makes a 
Selection,  eCither by pressing the first character 


(letter or number) in the menu line or by using the 


tt 


"up"-"down" arrow keys to highlight the item then 
pressing "Enter" to execute thie ise¥ectlen. 


For this project the Helicopter Design Manual [Ref. 
1] and Helicopter Performance [Ref. 3] were the primary 


source of equations. In addition, several other 
resources were tapped in the development of the 
analytical routines of the program. Power requirements 


for tandems are computed using equations developed from 
a combination of momentum theory and test data. This 
set of semi-empirical equations was found to be the 
most accurate when compared to actual H-46 and H-47 
test data [Ref. 4]. Weight estimation used parametric 
equations, specially developed for tandem rotor 
helicopters in [Ref. 7]. 


ld 


a 


Le wReSULIS 


Conceptual helicopter design is based on a myriad 
of interrelated parameters which constantly require 
changes and iteration to meet the design specification. 
This program handles the tedious calculations and 
bookkeeping allowing the designer to delve deeper into 
the intricacies of the design. Thus the engineer will 


spend his time evaluating options, optimizing 
parameters or conducting trade-off studies, instead of 
performing mindless hand calculations. Furthermore, 
this program is designed to teach, as well as being a 
tool. The optional “help windows" and information 
screens all serve to help the novice helicopter 
designer learn the process. Once the process is 


learned, the designer can quickly refresh his memory 
without interrupting the continuity of the progran. In 
Short, the Tandem Rotor Helicopter Design program 
complements existing software, is easy to use, and 
gives excellent results for Conceptual Design. 

Appendix A contains the "“user’s guide" to the 
program. lteisS sinttended stomehekbpestudentSeget started 
and use the program regardless of their experience 
level with personal computers. 

Appendix B shows results for a conceptual design of 
a helicopter with design parameters similar to those of 
the H-46. 

Appendix C is the program listing. 
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IV. CONCLUSIONS AND RECOMMENDATIONS 


Computer assisted design is a rapidly expanding 
aspect of the engineering world--and with good reason. 
Virtually all aspects of design are easier, faster and 
more accurate with the advent of the modern digital 
computer. Furthermore, microcomputers have become so 
common that the power of the computer is available to 
virtually everyone. 

Tandem Rotor Helicopter Design is a small addition 
to the vast amount of software that is being developed. 
With it, the student can work through the conceptual 
design of several helicopters ina fraction of the time 
that it previously took for just a single design. 

It is recommended as a follow-on to this thesis 
that graphics routines be integrated into the program 
that will plot directly the important relationships 
between parameters. For example, the Power -vs- 
Velocity graph which shows induced, profile, parasitic, 
as well as total power and high speed effects could be 
plotted directly from the results produced in chapter 
5. This would provide an immediate visual presentation 
of how the design should perform. 

Another recommendation would be the addition of a 
"Dlade optimization" routine similar to the one in Cie 
Single Rotor Helicopter Design program [Ref. 5]. This 
program however, should run separately from the 
remainder of the program since blade optimization is 
more “detailed” than "concéptwual” design. 

Finally it is recommended that microcomputers 
receive more emphasis in the Aeronautical Engineering 
curriculum. A course that includes an introductiom Gs 
personal computers as well as basic operation 


procedures would be of great value to the students. 
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APPENDIX A 
TANDEM ROTOR HELICOPTER DESIGN 
USER’S GUIDE 
1. INTRODUCTION 
This program is’ designed aS a menu driven, 
interactive design tool that will perform the 
bookkeeping and iterative calculations required ina 
conceptual design. Since no tandem rotor design manual 
is available, information screens are displayed 
automatically when amplifying information was deemed 
appropriate. These will remain until the "Enter" key 
is pressed to continue. Also available, in most 
chapters, are "help windows" which are not normally 
displayed but are there if required. A notice {ALT-Fi 
for help} will appear to the right of the title if 
"help" is available. These "help windows" can be 
accessed by first locating the cursor on the 
corresponding input line, then press the "Alt" and "Fi" 
keys (ALT-F1). Pressing "Enter" clears the window and 


restores program execution. Petia tae Helwcop Ler 
Design Manual [Ref. 1] is referenced extensively 


throughout the program. Though not totally compatible 
with tandem design, the program does follow this design 
manual where possible. Thus, the Tandem Rotor 
Helicopter Design program complements’7 the Helicopter 
Design Manual [Ref. 1] with additional tandem rotor 
specific information. 
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2. BASI@s 
a. HARDWARE 


COMPUTER: IBM PC or compatible with 128K of RAM. 


MONITOR: Color if possible, but monochrome will 
work. 

PR PNR: aa that will respond “to the “Shift— 
Prtoc’ OptkGn. 


| Oe GETTING STARTED 
Place the program disk into drive A and turn on the 


COMO weecr. The "system" as well as all other support 
software are on the disk for user convenience. The 
program will be loaded and run automatically, so relax 
and let the system work. If the computer is on, just 


insert the disk and press’) the CTRL-ALT-DELETE keys 
simultaneously to reboot the system. 

c. USING THE PROGRAM 

The main menu is’ the first display seen and will 
serve as a road map for progressing through the 
program. At the end of each chapter, control will be 
transferred back to the main menu to select the next 
option or quit if so desired. Selections can be made 
in one of two ways. First, use the up-down arrow keys 
to move the cursor to highlight the desired item, then 
press “Entenm’ . The second option is to simply press 
the first letter or number Key of the desired menu 
item; program execution will begin immediately. 

Once established within a chapter, follow the 


prompts and input the data as requested. If a mistake 
is made -DON’T WORRY- the opportunity will be provided 
to change any item once all data is entered. Note that 
some variables require a positive, non-zero value. If 
zero or a negative number is entered a window @iga 
appear to advise you of the error. Préss "Enten =e 
clear the window and then enter the correct number. A 


similar window appears if an error is made when 
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selecting an item to change. Again, press "Enter" and 
continue. 

Each chapter is organized into a series of spread 
sheet type screens that show input and output together 
(if possible). When the input parameters have met the 
Peapirements, press the Shitt—-PrtsSc keys simultaneously 
for a hard copy. 

i. ceBGlAL INSTRUCTIONS 


This section provides a brief synopsis of each 


chapter in the program. Bachmer coapter correkates, by 
number, directly to a corresponding chapter in the 
Helicopter Design Manual [Ref. 1], with one notable 
exception; Chapter 4 is reserved for a future blade 


optimization program since tail rotors don’t really fit 
into the tandem rotor design scheme. 
(1) CHAPTER ONE 
This contains a brief introduction and is 
included for those who do not have access’ to this 
usien ’s eguide. 
(2) CHAPTER TWO 
Chapter Two performs the preliminary rotor 
Scoeimwomeche helicopter.  Dihis follows the Helicopter 
Design Manual [Ref. 1] in determining the major 
parameters that will effect the eventual performance of 
moe helicopter. Note that one rotor is designed to 
carry half the gross weight and the two rotor system is 
assembled in Chapter Three. 
(3) CHAPTER THREE 
This is the Tandem Rotor System Design segment 
of the program where two identical counter-rotating 
rotors are put together as ae system. Any of the 13 
input variables can be adjusted to observe its effect 


on power, figure of merit, disk loading, etc. When 


ie 


these are acceptable, proceed to the weight estimation 
portion of the program. 

Weight estimation is based primarily on power 
required, but power is a function of weight, hence an 
iteratiwe sproecess. As with previous sections, inpag 
the requisite information at the prompts and the 
computer does  eienre.t. 

(4) CHAPTER FOUR 

Blade optimization is to be included at a 
later date: 

(5) CHAPTER FIVE 

This chapter incorporates’7 the effects wef 
retreating blade stall, advancing blade shock losses, 
high altitude hover, and various survivability/safety 
additions to the total power required. Total power 
required will be needed to select the engines ines 
next chapter. 

(6) CHAPTER SIX 

Engine and transmission selection are the 
topic of this chapter. To complete the analyeis. 
specific engine data is required. Table VI-1 i tie 
Helicopter Design Manual [Ref. 1] provides a summary 
of six generic engines that are representative of 
currently available, power’ plants. If a specific 
manufacturer’s data is available it too can be used. 

(7) CHAPTER SEVEN 

This section computes the range and €ndwrance. 
for the helicopter being designed. Chapter 7 should 
reviewed before beginning. Once the data is ente reds Ss 
will take a few minutes to solve the equations, so be 
patient; the computer will beep when it is done. 

(8) CHAPTER EIGHT 

This chapter is reserved to calculate all of 


those requirements that don’t fit elsewhere. Due to 
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the differences between tandem and single rotor design 
some of these are completed in earlier chapters. Check 
the design gross and empty weight as determined back in 
Chapter 3. 


Maximum hover altitude was specified back in 
Chapter 5 and used in determining engine power 
required. However, the maximum power is often in 


forward flight, thus a higher than specification hover 
ceiling will be available. 
(9) CHAPTER NINE 
This provides a final summary of the 
helicopter’s designed performance and geometric 
parameters. 
(10) CHAPTER TEN 
Chapter 10 computes an estimate of cost based 
on a set of parametric equations that incorporate 
component weights (Chapter 3), the inflation rate and 
expected production quantity. 


ie? 
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APPENDIX C 
VARIABLE DEFINITIONS AND PROGRAM LISTING 


1. Units and Constants 

pounds 

= knots 

- reeu pC has c Colma 


weight = 
airspeed 
velocity 
length = feet 

angles = degrees 

power = horsepower 

fuelflow = pounds per hour 
temperature = degrees Fahrenheit 


PIE oe 5927 
RHO sea level density 
MACH = mach number at sea level 


2. Chapter Two Variables 


MGW = specification maximum gross weight 
GW = rough estimate gross weight 
MTW = estimate of manufacturer’s empty weight 
MAX = maximum tip velocity 
otor radius 
revolutions Her minute 
rotational velocity in radians per second 
= thrust coefficient 
blade soli y 
a 
1 


A<a'v 4 
I 
ls 


= number of 
= main rotor 
= main roto 
= average l 
= blade dra 
= disk loadin 
= advance ratio 
= maximum blade loading 
= maximum forward Yee cay in feet per seconma 
X = maximum true airspeed in knots 


es 

de chord 

ade aspect ratio 
coefficient 
oefficient 


Key OFF. 


© 


LE 
a 
1 
b 
ie 

Cc 
g 


Waronras 
a 


> 


ee Oee OWES 
Kh 
<> 


a: Chapter Three Variables 


TIPLOSS = main rotor blade tiploss 
induced power 

profile power 
pa Te power 

Otal power 

figure. of ,Mmerift 
W = percént difference in weitere 

equivalent flat plate area 

LE = number of peopte, imerudanse creer 
= weight of passengers and crew 

IAL = weight of special equipment 

vertical area presented by rotors as seen 
from the front 
= total main rotor blade area | 
»N) = oe ela weight 
= useful load | 
L = fuel weight in pounds 
R = type of landing gear 

forward rotor hnéight above the ground 
airspeed im feet per, tecona 
= light 
= ght 


J><O 
[i "Os 





= 


induced power in forward tila 
profile power in trorvaerd Tia 
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QVUSNQNICEYS YPN'v'v's)vs'v'v'v'V 
ON AICS PP ITO S00 


—— if 


PP(I) = parasite power in forward flight 
PT(I) = total power in forward flight 

I = airspeed counter in knots 

ENGN = number of engines installed 


Chapter FoursVariables 


Blade optimization program to be added at a 
later date. 


Chapter Five Variables 


CLALFA = blade lift curve slope 

TWIST = main rotor twist angle in degrees 

T7 = main rotor twist angle in radians 

AOAST = stall angle of attack for rotor blades 
in degrees 

PASPEC = specification altitude 


AE = effective disk area 

VT = main rotor tip velocity 

TAS(I) = airspeed in knots 

MU = advance ratio 

AOA9O = blade angle of attack at 90 cecnes position 

AOA270 = DGS ae © of attack at 270 degree 
os on 

MACHVEL tee aul mach number as a function of 
altitude 

MTIP = main rotor blade tip mach number 

M90 = mach number advancing at 90 degree 


osition 
MCRT eatin rotor blade critical mach number 
DMD = difference between MIO and MCRT 


MD = main rotor blade critical mach number for drag 
divergence 
MTIPHVR = local tip mach number in hover 
PFLT = local tip mach number in forward 


Bees 
ecification hover ceiling 
mst coefiicient at hover ceiling 
ploss, awvhover ceiling 
n rotor induced power at hover ceiling 
Ss 
collective angle in degrees 
ctive angle in radians 
yclic_angle in degrees 
ic angle in radians 
cruise airspeed in knots, specification 
maximum airspeed in Knots, 
specification 
= airspeed for maximum power required 
= airspeed for minimum power required 
total power to HIGE at hover ceiling 
essure ratio 
mperature ratio 
imum rotor shaft horsepower required 
let losses 
ercent Toss @dwe to inlets 
added horsepower for inlets 
ses due to engine air partical separators 
ercent loss due to 
= added horsepower for EAPS 
sses due to engine exhaust diffusers 
ercent loss due to DS 
added horsepower with EEDS 
horsepower required to operate engine 
devices 
PCTENGN = percent power required for engine devices 
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MICSLOST = horsepower absorbed by engine, 
transmissions and accessories 
PCTMISC = percent power Cee ee for engines, 
ransmissions and accessories 
RSHPLOST = Loe power lost between engines and 
rotors 
PCTLOST “= peneent power lost between engines and 
rotors 
ESHP = engine shaft horsepower required to provide 
rotor power 


Chapter Six Variables 


NENGSEL = number of engines competing for selection 
MDT = maintenance down time 
MTBF = mean time between failure 
mean time between replacement 
= engine dry weight 
) = @ngine shaft horsepower at mil 
specific fuel consumption at mi 
mber of engines 
initial cost 
operating cost per hour 
reventative maintenance per engine per 
our 
= mean time between maintenance action 
verage flight hours per year 
rceraft service life 
verage flight hour per flight 
engine yearly maintenance cost 
engine yearly OD ae cost 
= number of engine ey acements 
engine life-cycle cos 
engine researeh and development costs 
= engine availabilit 
= engine maintainability 
= engine reliability 
CD oe tee costs 
Salvage costs 
= installation engines weight 
= transmission weight 
P = transmission power rating 
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Chapter Seven Variables 


C(X) = ane ac fuel consumption 
= Shaft horsepower 
x) = fuel flow in pounce per hour 
H = slope of the fuel flow versus horsepower 
curve 
H = zero nor aon one imtercep tT 
ressure ratio 
emperature ratio 


specification altitude 
P = specification temperature 
= poan ie horsepower 
MXR = maximum range velocity in knots 
XR = maximum range fuel flow 
MXR = maximum range referred horsepower 
XR = maximum range horsepower 
MINP = maximum endurance velocity in knots 
IN = SHP for maximum endurance 
MXE = maximum endurance referred horsepower 
XE = maximum endurance fuel flow 


YOUU NAVASHOY WENH) 
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S. 


0). 


ieSCR =scruise velocit 

PTCR = cruise power in horsepower 
FFCR = cruise fuel flow 

MXR = specification maximum range 
tiviitin = total fuel required 


Chapter Eight Variables 
see program listing for variable definition. 


Chapter Nine Variables 
All variables are the same as above. 


Chapter Ten Variables 


, = component cost 
) = total cost 
= inflation rate 


C 

Ch 
IF 
Q = quantity to be produced 
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’PROGRAM "TR 2eae. 
KEY OFF : FLG2=0 
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14 0% *** TANDEM ROTOR HELICOPTER DESIGN *#* 
Pe Se US. Lee Fl! 
16° 

18 7 *** ADMIN / CONTROL *** 

91 PRINT"~L=TANDEM1/" 

25 COLOR 1,1,1:PRINT"~C=ALL/":CLS: LOCATE 1,1,90 

30 PRINT" W=T_R_MENU/": INPUT" "XX  : PRINT Coan /m 

35 ON XX GOSUB 

92,129 ,3000, 4000, 5000, 6000,7000,8000,9000,9500,95 

5Q@ LOCATE 1,1,@: PRINT"~W=INTRO/": INPUT" "| X1 

23 PRINT" ~C=ALL/" : RETURN 25 

65 COLOR 1,1,1:LOCATE 1,1,0:PRINT"~wW=R U SURE/" 

26 INPUT"",ANS: IF ANS = i THEN 25 ELSE SYSTR 

68° 

190 | *** PRELIMINARY ROTOR DESIGN *** 
120 COLOR 1) 1, (ane vis 1,1,0: PRINT" ~C=ALL/": 

PRINT" ~W=PRELIM/": INPUT X2 

125 COLOR 15,1 : PRINT"~C=ALL/" 

130 CNT = @ 

140 CLS: LOCATE 1,27 +=: # =PRINT "* PRELIMINARY ROTOR 

DESIGN *" 

150 PRINT 

160 PRINT _ 1. DESIGN MAX GROSS WEIGHT [lbs] (2.1) 
170, PRINT " a 2. ESTIMATE OF EMPTY WEIGHT [lbs] 
136 bring? 3. ROTOR TIP VELOCITY (2.3: 700 fps 

recommended) VT = " 

499) PRINT a _ 4. DISC LOADING [lbs/ft*2] (2.4 ; FIG. 

Cee nO : . ROTOR RADIUS [ft] 
1@ PRINT oan 7 ROTATIONAL VELOCITY [rpm] 
220 PRINT no - ; THRUST COEFFICIENT 
BO PRINS. A 5. SPECIFICATION MAX AIRSPEED [knots] 
4@ PRINT " as , ADVANCE RATIO (2 

250 PRINT "77° 6. MAX BLADE LOADING (2.7; FIG. a=ee 

CT /S) aa. 2 MBL = " 

260 PRINT " : , ROTOR SOLIDITY (29m 

( alerera: a8 & / 7. NUMBER OF ROTOR BLADES PER HEAD 
80 PRINT "- -" : BLADE CHORD [ft] (@mee 
290 PRINT °°" es . ASPECT RATIO (2.9) 
300° PRINT "77 7 AVG LIFT COEFF (2.5 
320 PRINT : COLOR 14,1 

33Q PRINT " 8. RETURN TO MAIN MENU." 

340 LOCATE 23.6: PRINT" ** FOR HARD COP PRESS 
¢Shift-PrtSo> BEFORE RETURNING TO MAIN MENU ***': COLOR 
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118@ PRINT "* TANDEM ROTOR SYSTEM DESIGN * 
{Age -Pil efor help)" 
1190 PRINT 
200. PRINT " 1. DESIGN MAX GROSS WEIGHT 
Wr ea sw ee MGW = " 
fe ERel NT a . 2. ROmOnK RADIUS 
we PRINT 3 aia , BLADE CHORD ret. 
(2a) PENT = a0 . 4. BLADE PROFILE DRAG COEFFICIENT 
124@ PRINT " : 5 NUMBER OF ROTOR BLADES PER HEAD 
fea §€6~PRINT - ae 6. OPERATING RPM [rpm] 
taco PRINT *" er 7. ROTOR SHAFT SPACING ret | 
fen? PRING ee P 8. ROTOR HEAD VERTICAL SPACING [ft] 
h2e0 ERUNT_™ 9. HEIGHT OF FORWARD HEAD ABOVE 
WHEELS [ft ee = 
129@ PRIN . oh 10. PRESSURE ALTITUDE [ft MSL] 
130@ PRINT " ne HOVER ALTITUDE nt t AGL ] 
ioro PRINT  " 12. TRUE AIRSPEED [knots] (@ FOR 
RUMI ss tt ww to. - " 
152@ PRINT " ah 13. BOUIVALENT FRONTAL AREA [ft%*2] 
nee > COmOR 14, 1 
io Os ERINT ..." 14. COMPONENT WEIGHT ESTIMATES 15. 
RETURN TO MAIN MENU" 
Poem COLOR 15,1 
Deere? Feneae = 1 THEN 1355 BLSE 1375 
Meo load data from “previous chapter, if applicable; 
‘coca Iago: 
1338 IF MGW _<>@ THEN LOCATE 3,61: PRINT USING AS; MGW 
ELSE GOSUB 15092 
beao TF R ©>0 THEN LOCATE 4.61: PRINT USING A$; R 
ELSE GOSUB 15290 
ieee ser C Seer LOCATE 5,61: PRINT USING AS; C 
ELSE GOSUB 154@ 
Pee ec DO <> THEN LOCATE 6,61: PRINT USING C$; CDO 
ELSE GOSUB 156@ 
beer o Ir zB el noienOocALEwes 7,61: PRINT USING BS; B 
ELSE GOSUB 158@ 
mee ir RPM <>2 THEN LOCATE 8,61: PRINT USING A$; RPM 
ELSE GOSUB 16090 
Poe Sih. 51 Settee nOoCethe = 9,61: PRINT USING AS; S1 
ELSE GOSUB 162@ 
fee IE GAP <>2 THEN LOCATE 10,61: PRINT USING A$; GAP 
ELSE GOSUB 164@ 
foe fe Foe <>? THEN@LOCATE 11,61: PRINT USING A$; FHH 
ELSE GOSUB 166@ 
boeo =F PA =>0, THEN, LOCATE 12,61: PRINT UsaiNG §BS; PA 
ELSE GOSUB 168@ 
foo LF ~AGL <>0 THEN LOCATE 13,61: PRINT USING BS; AGL 
ELSE GOSUB_ 170@ 
io th TAS => THEN LOCATE 14,61: PRINT USING BS; TAS 
ELSE GOSUB_172@ 
moe [Ff FF Oe LOCA@HN 15,61: PRINT = USING A$; FF 
ELSE GOSUB 174@ 
eee GOSUB 177@ GOSUB 214@ 
teow ONT = CN + 1: J = Q 
1 Da h Chiim== 1 tee tooo BESk LOCATH®™ 23,1: PRINT 
See. 77): GOTO 1429 
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685 LOCATE 12,61:PRINT SPC(8):LOCATE 12,60: INPUT" 
1690 PRINT"~K={ALT-F1)/"_ : IF CNT>1 THEN GOSUB 
1770:GOSUB 2140: RETURN ELSE RETUR 

1700 LOCATE 1,1,0: PRINT"~K= ADTOE I HW11/" 

L710 LOCATE °1%3,61:PRINT SPC(8):LOCATE 13,60: INPUT" 
1715 PRINT" ~K={ALT-F1)/"_ : IF CNT>1 THEN GOSUB 
1770:GOSUB 2140: RETURN ELSE RETURN 

i2o. LOCATE 9151,0: PRINT"~K= ALESE! } HW12/" 

1739. LOCATE °14,61:PRINT SPC(8):LOCATE 14,60: INPUT" 
1735 PRINT"~K={ALT-F1)/"_ : IF  CNT>1 THEN GOSUB 
1770:GOSUB 2140: RETURN ELSE RETURN 

1740 LOCATE 1,1,@: PRINT"~K= ALTE! HW13/" 

1750 LOCATE ‘1 61: PRINT SPC(8):LOCATE 15,60: INPUT" 
" FF: PRINT'~K=(ALT-F1)/" 

1755 IF FF <= THEN  PRINT"~W=DVNO/":GOTO 1740 ELSE 
GoStUB 1770 

1760 GOSUB 214@: RETURN :'1460 

1770 PKK KK KX POWER COMPUTATION SUBR 
HHH HH HH HHH HH HHRHRHHRH HHH HHH HM 

boee N = 1 :GW(1) = MGW : ’subr access from line 1755 
ba00n Neel thru 5 as sent from weight comp admin subr. 
1820 GW) =- .8 * MGW 

1830 CNP SCNT + 1 

1849 RTRHT = FHH + * GAP 

1850 GE = (AGL+RTRHT) / C2xR) 

1869 PGE = Set + 1.5462"CE — 1.457*CR*2 + .708*GE*3 - 
1879 RY = RPM/9.55 VT = RV * R : VF = TAS * 
1880 SIGMA = (1 = 87535E-06 * PA. “4.2561 

1890 IF PA= HEN RHO=RHOO ELSE IF PA=4000 THEN 
RHO=.001918 ELSE RHO=SIGMA*RHO@ :’1lb-sec*2/ft*4 

1900 MU = VF T 

1910 T = 1.055 * GW CN ) 

1920 S = B * C /(PIE * R) 

[ee ThPLOSS = 1 - ( SQR(2 * CT) / B) 

194@ RE = R * TIPLOSS 

1959 SR = Si / R 

196@ ee g1RES9s(PIB-(PIE/180)*ACOS(S1/(2*RE))) ap 
Sd #SQR(RE*2-(S1°2 ) 4 

mompecr = T / ( REO * AE * VI*2 ) 

nome Kk = 1.46.- .253 * SR 

Moe O AVY = PIE * R72 = * R * GAP 

1990 VI = SQR(T/(2*RHO*A 

200 U = S RC SOR +.25*((AV/AE)*(VF/VL))*4) = 
.5*( (AV EQ (V /VI 2 2 

2BOGe Di, = GW(N)_/ 

2006 CL = 6 * CT/S 

2007 AR = R/C 

2008 BL = C I S 

2009 IF B*C* £s1 Ee. 7 > THEN ECOLOR 1,1,1:LOCATH 1,1,¢@: 
PRINT" “W=BLDST K/"s:INPUT X4 :PRINT"~C=ALL/": COLOR 15,1 
2050 7 *** POWER CALCULATION *** 
2960 IF GE <= 2 THEN PI = PGE * T * VI * K * KU /55@ 
Z0moe PI = * VI * K * KU / 550 

2089 Pd =- (CDO * B * C * R * VT*3 * RHO / 2200)*(1+ 4.3 
2090 Be =- VF*3 * FF * RHO f 11@@ 

2100 PC = (T * VV + RHO * FF * VV*%3 ) / 11900 

2105 FM = PI / (PI + PO) 


oo 
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CATE 6,39: PRINT SPC(6): LOCATE 6,38:INPUT" 
GATE 7,39: PRINT SPC(6): LOCATE 7,38:INPUT" 
CATE 8359 | PRINT SPC(6): LOCATE 8,38: INPUT" 
ATE 9,39: PRINT SPC(6): LOCATE 9,38:INPUT" ",UL 
routine to list these parameters first with 
TE ,2: PRINT"1. TYPE LNDG GEAR (TRICYCLE 
BEp 6:22. PHD yu YSENE" — 

Hugues TRENT USING"2. NUMBER OF ENGINES (2 or 
E Oy : PRINT USING"3. ESTIMATED FUEL CAPACITY 
i F USING"4. NUMBER OF CREW AND 
NaN 5. WT OF SPECIAL AVIONICS 


USING"6. SPECIFICATION USEFUL 


UH FI 
suc 


6 
P WT RESULTS OU tween oU BR 


) HRHHHHNHNH HH HK C 
HRHHHHHHKHKHHHHH HH HH 
’ 


LOCATE 3,53 : PRINT"* COMPONENT ¥* * WEIGHT " 
LOCATE 4 4] PRIN USING" ye MAIN 
Rowe... HHHH H's W(1,NN 
LOCATE 5,47 RINT USING" 2. 
TPAC ee HHHEY Hs WOS NN) 
, 3 47 : PRINT USING* LANDING GEAR 
a... HHH". W(4,NN) 
5 PRINT USING" 4. ENGINE 
mirc... . HHUHH Hs W(S,NN) 
a ; PRINT USING" 5. 
i HHH Hs W6ACNN 
2 SING" 6. DRIVE 
a 


HAN 
PRINT 
# .#"; W6B(NN 
7: ae SING" 7. FUEL TANKS 
N) + W6 oy “+ een 
a7: PRINT USING" 8. FLIGHT 
PRINT USING" 9. AUX POWER 
PRINT USING"1@. 
ts W(9 NN) 
Nt WouNG ie HYDRAULIC 
b WoTNG 1 ae ELECTRICAL 
UemNG' 13. 
IN USING"14. 
"; wW(13,NN) 
t USING'15. AC / DE-ICE 


anf 
Dawe Bae 
5 19,47: NT USING"16. LOAD HANDLING 
can = Wie NN) 
LOCATE 20,47: 


LOCATE 21,47: PRINT USING" TOTAL COMPONENT WEIGHT 
H### LH"; WE(NN) 
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9@ Wed eh =| lo O65) 405, 49% PE ue 

VOmeaoeew i Nee: FOR si=1 TO 15: WE(N)« WC, nw) <SWECN): NEXT 
oc aten S ay 

10 GW(N+1 = WE(N + UL + PAX ‘ FUEL 

15 NGW nN = WE(N) + UL + PAX auy 

20 PDW NY = 10@*ABS(1 - (aw (N+1)/ aw N))) 

22 moc A TE 1 1eeOe PRINT" ~W=TRYAGAIN/'": mec Ahe 25, 1 
INT SPCC TT) RETUR 

QQ aS GW=MGW: Mine ae mune “C=AT,[,/" : 
ee -UCADNOTE/": CHAseie' TR 1" .e2A.LL 


EeeCh Alea bAS'...1/ SEPT 87 


KRHHHHHKHKHKHHHHHRKHHNHRH HHH HHH HHH HHH HH HHH HHKRKHKHHHRHN HHH HHH NH HK 


1*** POWER REFINEMENTS PROGRAM w/HIGH SPEED EFFECTS 


x 


KRHRHRKRHRHHHHHRHKH HHH KHHRHNHHHRHKHRHRHNHRHHRHH HRN HHH HKH HHH HRKHHKH HHH H HHH HH H 


DIM 
C2 0Gee 1Gs00 ), POC500 ), PP( 300), PT(300),PS(300), PM(3- 


UVIQUIGH -f kW -M-OTUO UPPPRPPHPLPF 


PNCNHABOAONY N-HVMeYKY-HF *O *O KQQUWDOQDWIUUINNN:: Y= 


S 
) 
Y OFF : AS="##A#FA#F.#F" : BS="#ARRAFA" 
ga HHHH"' 
IF ENGN=@ THEN _ENGN=2 
r GW = 230 Reme5.5 =)G@= 1.5 : CD0= 8.999999F-903 

: B= % : BPM: = 2Oo%.o: ol o4:: P=4 FHH=12: 
PASPEC=4000: FF=44: AGL=1@: FLG3=1 XHVR=10000 
:-CLALFA=5.73: AOAST=14: TWIST=-9.5: MCRT=.8 

58 ° TASCR = 130: TASMX = 150 
70 COLOR 15,1 ?PRINT"~L=TANDEM3/" : PRINT "~C=ALL/" 

90 ° *** INPUT VARIABLES *** 

100 CLS: CNT = @ 

12@ LOCATE 1,12: PRINT"* HIGH SPEED EFFECTS AND POWER 
SUMMARY * ({Al1t-F1 for HELP)" 

13@ PRINT 

140 PRINT " a 1. GROSS WEIGHT [lbs] 
Peewee ec ess, emo es 5 7 2, ROTOR RADIUS 
6@ PRINT "0 °° CC ~ 24 BLADE - DATA: CHORD [ft] 
170 PRINT HO ae / PROFILE DRAG COEFFICIENT 
180 PRINT FT . 5. LIFT CURVE SLOPE [per RAD] 
190 PRINT * 6. STALL ANGLE OF ATTACK [deg] 
200 PRINT " cae GEOMETRIC TWIST [deg with 
Sie me. WiSsT 2" 
D4 RINT" Meee : CRITICAL MACH NUMBER 
220 PRINT ; 9. NUMBER OF ROTOR BLADES PER HEAD 
aoe PRINT "*  — abo OPERATING RPM [rpm] 
2005 PRINT “ © 3, 1; ROTOR SHAFT SPACING [ft] 
250 PRINT "| 12. ROTOR HEAD VERTICAL SPACING ft] 
fee ea Bars. HEIGHT OF FORWARD HEAD ABOVE WHEELS 
70_PRINT " 14. SPEC PRESSURE ALT [normally 4000 ft 
MSL]..PASPEC = " 

280 PRINT " _ 15, HOVER ALTITUDE [ft AGL] 
290 PRINT " °° °C fore SPEC CRUISE AIRSPEED [knots] 
es acon seo! 


4% 


300 PRINT " 

31Q@ PRINT " 

FF 
320 PRINT '" 

ee HVR = "' 
395 COLOR It 1 
330 PRINT " 

21. RETURN TO MAI 
335 COLOR 15,1 
340 IF FLG3 = 1 T 
35@ ’load data fr 
allows input! 

370 IF GW <>@ 
ELSE GOSUB Q 
380 IF R <>@ 
ELSE GOSUB 75@ 
39@ IF C <>@ 
ELSE GOSUB 790 
400 IF CDO <>@ 

ELSE GOSUB 830 
410 IF CUAMPA<> 
AS:CLALFA ELSE GO 
420 IF AOAST < 
AS:AOAST ELSE GO 
439 IF TWIST < 
A$:TWIST ELSE GOS 
44@ IF MCRT <>@ 
ELSE GOSUB 980 
45Q@ IF B <>@ 
ELSE GOSUB 1010 
460 IF RPM <>@ 
ELSE GOSUB 118@ 
470 IF S81 <>@ 
ELSE GOSUB 108@ 
A480 IE WAP <>@ 
ELSE GOSUB 1110 
490 IF FHH <> 
ELSE GOSUB 114@ 
500 IF PASPEC< 
BS:PASPEC ELSE GO 
510 IF AGL <>@ 
ELSE GOSUB 1190 
520 IF TASCR < 
BS:TASCR ELSE GOS 
530 IF TASMX < 
BS; TASMX ELSE GOS 
540 IF FF <>@ 
ELSE GOSUB wed 
545 IF MXHVR < 
BS;MXHVR ELSE GOS 
550 CNT = 1: J = 
56@ IF CNT = @ TH 
GOTO 610 

570 FOR J = 1 me 
580 LOCATE 2582 
NUMBER " ;J 

590 Xe J: G 
612 LOCATE 23, 
SELECT " :X 

630 IE Xe Gal gem 
THEN 610 ELSE 580 
640 ON & “© 
1212,1050,1080,11 
1230,900@ 

650 IF CNT # @ 
660 GOTO 550 

670 ° 


17. SPEC MAX AIRSPEED [knots] 
EQUIVALENT FRONTAL AREA [ft*2] 
SPEC MAX HOVER ALTITUDE (IGE) [ft] 
Gen yGOMPUTE NEW 
HEN 350 ELSE 560 


POWER REQUIREMENTS 


om previous chapter, if applicabiec; Wa. 
THEN LOCATE 3,61: PRINT USING AS3 ee 
THEN LOCATE 4,61: PRINT USING Alea 
THEN LOCATE 5,61: PRINT USING Agee 
THEN LOCATE 6,61: PRINT USING CS jeeie 
® THEN LOCATE amen? PRINT ~~ Usiaise 
SUB 879 
>®@ THEN LOCATE Bye: PRINT USING 
SUB 9190 
2 See LOCATE 9,61: PRINT USING 
THEN LOCATE 10,61: PRINT USING AS$;MCRT 
THEN LOCATE 11,61: PRINT USING Bee 
THEN LOCATE 12,61: PRINT USING A$;RPM 
THEN LOCATE 13,61: PRINT USING ‘Aen 
THEN LOCATE 14,61: PRINT USING AS$;GAP 
THEN LOCATE 15,61: PRINT USING AS sei 
»®.. THEN LOCA 8.67612 PRINT USING 
2B 1189 
THEN LOCATE 17,61: PRINT USING Bae 
28 A LOCATE 18 7O"m PRINT USING 
1 cua LOCATE 19961: PRINT Use 
THEN LOCATE 20,61: PRINT USING AS;FF 
>0 THEN LOCATE 21,64: PRIND Uli 
Ae 1225 
EN 570 ELSE LOCATE 23,1:PRIN®T SPC. 


"ENTER YOUR VALUE FOR ITEM 


T'"WHICH DO YOU WISH TO CHANG#S 
X 21 THEN G@SUB 4500: [Pad 


SUB 710,750,790,839,870,9190,950 
@,1140,1180,4190, 1200, 1226) 120g 


/ 
= @ 


980, 


O 
1 Sa, 


THEN NEXT J ELSE 550 
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680 ’ *** DATA ENTRY SUBROUTINES *** 

THO. LOCATE 1.1,@: PRINT | Ke{ALTIF I} HWI/ TS HOCADREwS ,61; 
PRINT Pc 8): nOCATE 3.60: INPUT" "aw 
PRINT! “K= ALT-Fi) ae IF GW <=@ THEN PRINT"~w=DVNO/" : 
759 LOCATE 1.1.@:PRINT"~K=({ALT-F1),HW2/"_: LOCATE 4,61: 
PRINT pcs): LOCATE 4,60: INPUT" " 
PRINT" “K= ALT-F 1) - : IF R <= @ THEN PRINT" ~W=DVNQ/" 
79@ LOCATE 1,.1,@0: PRINT"~K=(ALT-F1),HW3/": LOCATE 5,61: 
PRINT PC(8) LOCATE 5.60: tNPUT" ne 
PRINT! “K= ALT-F1) E. : IF C <= @ THEN PRINT"~W=DVNQO/" 
83@ LOCATE 1,1,0: PRINT" ~K=(ALT-F1 ) Hw4/": LOCATE 6,61: 
PRINT SPC(8): LOCATE 6,60: INPUT" 
" CDO: PRINT" ~K={ALT-F1)/" 

e590 iF CD <= @ THEN PRINT"~W=DVNO/" : GOTO 830 ELSE 
879 LOCATE shel a? PRINT" ~K={ALT-F1),CLALPHA/": LOCATE 
880 LOCATE 7 ae Vet tmOLnAnwA- PRINT" ~K=d ALT=F1)/* 
890 IF CLALFA <= ® THEN PRINT"~W=DVNO/" ©: GOTO 870 
ELSE RETURN 

919 LOCATE sbelae PRINT" ~K=(ALT-F1),STALLAOA/": LOCATE 
920 LOCATE 48) input” " AOAST : PRINT" ~K=(ALT-F1)/" 
930 IF AOAST <= @ THEN PRINT"~W=DVNG/" : GoTO 9510 ELSE 
950 LOCATE 1,1,@: PRINT"~K=(ALT-F1),BLDTWIST/": LOCATE 
9°61:PRINT SPC(S } 

960 LOCATE ,6@: INPUT" ",TWIST : PRINT"~K={ALT-F1)/" 
980 LOCATE sbal ad’ PRINT" ~K=(ALT-F1),MCRIT/": LOCATE 
990 LOCATE fo ea? Tie” " MCRT : PRINT" ~K={(ALT-F1)/" 
1000 IF MCRT <= @ THEN PRINT" ~w=DVNG/' : GOTO 980 ELSE 
1010 LOCATE jie PRINT" ~K={ALT-F1),HW5/": LOCATE 
11,61:PRINT SPC(S ) 

1020 LOCATE 11,6@:INPUT" ",B : PRINT" ~K={ALT-F1)/" 
103@ IF B <= @ THEN PRINT"~W=DVNO/" : GOTO 1010 
ELSE RETURN 

1950, LOCATE pola}? PRINT" ~K=(ALT-F1),HW6/": LOCATE 
1060 LOCATE AS 80 INpuTe " RPM PRINT" K-(ALTOF1)/" 
1970, IF RPM <= @ THEN PRINT"~W=DVNO/" : GOTO 1050 ELSE 
1080 LOCATE 1,1, PRINT" ~K=(ALT-F1),HW7/": LOCATE 
13.61:PRINT SPe(8) 

1090, LOCATE 13,6@:INPUT" ",S1 : PRINT" ~K={ALT-F1)/" 
1110 LOCATE 1,1,@: PRINT'"~K=(ALT-F1)},HW8/": LOCATE 
14,61:PRINT sPc(s) 

1120, LOCATE 14;6@:INPUT" ",GAP > PRINT" ~K={ALT-F1)/" 
1149. LOCATE bed 0: PRINT"~K={ALT-F1),HW9/" +: LOCATE 
115@ LOCATE Sd gene Dasa PRINT!“ K-(ALTOF1) {" 
1160 IF FHH <='@ THEN PRINT" ~W=DVNO/" : GOTO 1140 ELSE 
1180 LOCATE 1,1,@: PRINT"~K={ALT-F1),HW1@/": LOCATE 
16,61:PRINT Spc(s 

1185 hoe t 16,60: INPUT" " PASPEC 
PRINT" ~K=(ALT-F1)/" RETURN 

nog LOSATE 1.1 ° PRINT" ~K={ALT-F1),HW11/": LOCATE 
17,61:PRINT SPC(8 ) 

1192 LOCATE 17,6@0:INPUT" ",AGL : PRINT"~K=({(ALT-F1)/" 
>: RETURN 
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1200 LOCATE 1,1 PRINT" ~K=(ALT-F1},TASCRUZ/": LOCATE 
18,61:PRINT spt (8) 

1205, LOCATE 18,60:INPUT" ",TASCR: PRINT"~K=(ALT-F1)/" 
1210 LOCATE 1,1.0: PRINT"~K=(ADT-F1)} HWi2/": Locman 
19,61:PRINT SPC(8 } 

1212 LOCATE 19,60:INPUT" ",TASMX: PRINT"~K=(ALT-F1)}/" 
1220 LOCATE 1,1,0: PRINT"~K=(ALT-F1),HW13/": LOCATE 
20,61:PRINT SPC(8) 

1222 LOCATE 20,6@:INPUT" " : PRINT" ~K=(ALT-F 1. 
1223. IF FF <='0 THEN PRINT ews DVN@ : GOTO 1220 

1225 LOCATE 1,1,@ PRE Se LOCATE 
21,61:PRINT SPc(8 

1227 LOCATE 21;6@0:INPUT" ",MXHVR: PRINT"~K=({ALT- Fi} 
1228 IF MXHVR <= @ THEN’ PRINT" ~w DVNO/" - GOTO 25 
ELSE RETURN 

1230 TRH HH KK HH ADMIN/CONTROL SUBR 
HR HR HNHHRHRHRHRRHRHRHHRHRHRHRHeHHHRHRNRHRHRHRHHRHR HH * 

1232 LOCATE 23,1: PRINT SPC(77) 

12353 LOCATE 25, 15: ENE ress <Shift-PrtSe> for (jae 
co , BNITBR to continwe: a 

123% CLS: LOCATE 1,1,0: PRINT"~W=COMP 

1237 [=299:TAS(1I) = @:PA = MXHVR:TEMP=59: GOSUB 1300: 
PSPECHVR = PT 

124@ I=298:TAS I )=TASCR: PA=PASPEC: TEMP=95: GOSUB 
1300:GOSUB 1800: PTCRSP=PT(TI) 

1250 I=0:PA=0: TEMP=59 

1260 FOR I = @ TO TASMX + 30 STEP 10 

296 TAS(I) = I: GOSUB 1300 : GOSUB 1800 
‘compute power and hse 

1280 NEXT I : PRINT"~C=ALL/": BEEP: CLS: GOSUB 3000 : ° 
print. OUeweresul ts 

1290 LOCATE 23,1: PRINT SPC(77) . 

1292 LOCATE 25,13: INPUT" press <Shift-PrtSc> for hard 
eee BIMeaR to continue a> 
la 3e GOTO 4000 :’ calc losses due to inlets,BAPS and 
1300 Cece eee eee POWER COMPUTATION SUBR 
HR NR HMNMRHRMHRMRMRHRMRHRMRHRHRHRHRHRMRRMRMRM MM MR HR 

1301 PIE = 3.141592: RHO® = 2.37691E-@3 : RAD 2 57/296 
>: VV = FPM/60 = @ 

1302 CNT =CNT + 1 =: RERHT = FHH + .5 * GAP : GE = 
(AGL+RTRHT 2*R) 

33@ PGE = .5147 +°1.3432*GE - 1.457*GE*2 + .7¢08*@neeee 
.1276*GE*4 

1349 RY = RPM/9.55 : VT = RV * R : VF = PAS iy 
1345 DELTA=(1-6.87535E-@6* PA)*5.256 THETA L 
| TEMP 4459 69) / 18.69 

350 SIGMA = DELTA / THETA RHO = 
SIGMA*RHO@ 

1379 MU = VF / Vf : T = “CF S=B* ¢ /(hie 
oe TIPLOSS=1-(_ SQR x CT) / B) : RE & ee 
TIPLOSS i 1B 

1460 AE= 372s PY a + 
S1*SQR(RE*2-S 

1465 Cf = Gw HO * * yvqro ) VI = 
SQR T/ 2*RHO*AE d 

187 2 1.46- M65 *sec AV €oe aoc 2ce 

15@ KY : SOF SOR (.25%* AV/AE)*4"(VE/VI)*441) = 
.5*(AV/AE)*2*(VE/VI )%*2) 

151 Gs, = 6a gR{s : AR = R/C BL=CT/S : DL = 
GW f(2*Pl i Rae 

161 PI(I 27T * VI * KU — 250 

1620 IF GE <m 2 THe pt ret I) ie T * VI * K * KU /55@ 





wee? , PGs Serbo sh cme R ~* VT“3 * RHO / 2200)*(1+ 
164@ ert = vere * FF i 

166@ PT(I) = bk t 7 + PO(IDS re Str : FM = PI(I) / 
(ECT) ce FOCI ) 

68 ETU 

1800 ’ ee HIGH SPEED EFFECTS ROUTINE w/ CONTROL 
ANGLES MHMRHMMMMHMRN 

1805 IF eat EN 
PIMIN- PT(I): PTMAX=PT(I1): TASMINP= Te ): TASMAX P= TAS(T). 
181@ IF Thr p1is < 29 THEN RETURN 

182@ Bt T7 = TWIST/RAD : VIFF = (T/(2 * 
RHO * AE * 

189@ LAMDA = - eee rs eW ns VIFF )/VT 

1900 T1 = .5* +.5*MU%2 ) 2) Biwee /3 + 
.5*MU*2*B1 

jeg Bae = S25" Bi~2 *(B1*2 + MU*2) =: T4 = .5* MU* 
(BI 2 + MU%2 (4 ) 

SA 12 = 2 .* CT CLALFA *S) : J3 = LAMDA *T1 : J4 
= J2 - J3- (T7 * 
eee At = (4*((MU*(B1*2)/2)-(MU*3/8)))/(B1*2*(B1*2-.5* 
197@ a. = Po ey (5142 fe) ) 

198@ A13 = (25B1%2 x MU“2)) 

1985 A14=(B1%*2+41 2 *MU~2 2} /( BI ABs 5imu~2) 

199@ J5 = -LAMDA Al Ty 3 } 
2000. H8=(J4*A14- J5*"T4)/(7 ae Tax A12) <9 COMANGLE = 
2010. H2=(J5*T2-J4*A12)/(T2*A14-T4*A12) : CYCLIC = 
2050 KO= LAMDA/(1+MU) : F = H8-H2+K@+T7 : AOA270 = 
204@ IF AO QA270 ¢ AOAST THEN ps(T 32 TO 2060 
205@ PS(I1) = FO(z}* ( AOA27@ O AST} (a) 
206@ GG = H8+H2+K AOAQ@ 
2070 MACHVE _ 
49, ne cee! our Cle 9000068755856#* PA) )*.5 
2080  MTIPHVR (RV*R ) /MACHVEL >: MTIPFLT =( 
mon ue MACHVEL 
2090 M90 = MTIPHVR*(1+MU ) IF MTIPFLT < MCRT THEN 
PM(1I)=@: GOTO 212@ 
210@ DMD = M9@-MCRT CPM=S*( .@12*DMD+.1%*(DMD*3) ) 
PM 1) = ee ee bar es” 
2120 P r} = pitt + Pp ci + Pett) + oe + PM rd 
Bi1aO IF P CF? < PTMIN THEN PTMIN = PT(I) : TASMINP = I 
B45 IF TA . = TASCR THEN PTCR = PT(L) 
Bids TE TA Li >» TASMX THEN 218@ 
215@ IF PT(I) >» PITMAX THEN PTMAX = PT(I1I) : TASMAXP = I 
218@ RETUR 
3000 ° HXHHHKHHHHHH*X HWTGH SPEED EFFECTS/POWER RESULTS 
Cm PUT SUBR MHHRHMHHMMMM HN 
a IF PSPECHVR >PTMAX THEN PTMAX = PSPECHVR: TASMAXP 
3004 RSHP = PTMAX 
3005 FOR I = TO TASMX + 30 STEP 1@ 
3010 IF TAS(I) = @ THEN 3020 
3011 IF TAS(I) = TASMINP THEN 3050 
3012 IF TAS(I) = TASCR THEN 3@05@ 
3014 IF TAS( } = TASMX THEN 3050 
e018 ee = 4+20)/20 : IF I2 — FIX(1I2) = @ THEN 3050 
3@2@ PRINT" * TOTAL POWER (SHP) REQUIRED WITH 
HIGH SPBED BFFECTS *'" 

3025 PRINT 

303@ PRINT" TAS(kts ) PI PO PP 

PS PT ® 
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PR Se 
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¥** CHAPTER SIX MAIN PROGRAM 


* 


PRINT" ~C=ALL/": PRINT" ~L=TANDEM6/" 


R 
COLOR, 1,1,1:CLS: LOCATE 
Q: PRINT" “W= ENGMENU/": INPUT"",X 
OLOR 15,1 : ON X GOSUB 200,300,400 : GOTO 129 


COLOR : CLS: LOCATE 
INT" ~W=ENGNSELN/":INPUT"" , X6 RETURN 


ary data fo _wel ht s mek 1 On ower et 
: wet Wien ne) = 55a W(4, 1 600 


@2 : W(7,1)=780 : W(8,1)=130 : W(9,1)=14@ 
B08}, gW(12, ,1)2=400 W(13,1)=700: 
ACT) = 300: :W6B(1)=160@:W6C(1)=300: 


B=3:RPM=267.4: 
>FHH=12: PA=@: TAS=@:AGL=1@: NENG: 2:ESHP=2600 


BEL=2500:UL=1000:RHO=.002377: PlH=3.14159% 


[OQ -]\WNOQAWNWNNAS *& 
“O 


WWNNNN--N--O0 *«~] 


Nee 
NO 
rPPINO=SO-e=sfo=zoqo- ose | Q9 
Ox WNW to RP aN ™ 
~QCou uF Nh 
O I 
Si) 
> 


LOCATE 
1,@:CLS: PRINT" ~W=LOADNOTE/":CHAIN"TR1i", , ALL 


’ Va a a SECTION 6.1 kK Oueee 


KEEKRKKKHK KE ER KH HK KH KH HK 


1,28: PRINT"’* NUMBER OF ENGI 


"1. NUMBER OF ENGINES = _";ENGN 
"(specified in Chapter 3) 
" *6 6 TYPE OF ENGINE * 


* 


UN kU PNVPUWNTD -UNUZVNEU 
== xQOUSOUIZD VP POPU 


O 


© 


pres NUMBER OF ENGINES COMPETING 
ia "sLOCATEHE 25,5: INPUT ae 
a 
a 


QOH RENE) * 


= 


ar™ 


Q ELSE IF ANS=1 THEN 570 ELSE 


PUT"WHIGH ITEM % oe Mey ae X6 
2 : LOCA 255 PRINT $Bo( 75) 


HOF BAMHRIFRHE 
IH 
ONVNSNO ANNN]|” 


OQ 


ATE 33 PRINT SPC(3): LOCATE 2,34: 
ATE 4,55: PRINT SPC(3): LOCATE 4,56: 
ENG RETURN 
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NU! sae ee oes oereee 2 = BE 5 Boe = SS Se Oe Boe eee 


{ SELECTION PARAMETERS *" 
alk 
ab 


Ie 
ONKO 
- WW 
Nr 
Wi 
"UO 


HOUK HD 
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NQQAVIPN QO 
vuouuvVuUUIT 
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KR HREOC 
Ze Aa aes, 
BHAA AHAHHAH, 
MOHNNY 

Ua’ aia DU 


AZ 
“C2 
tr 
>. 

er 
AAA 


= i fre] 8G EH EY x fx EX 
<LiH (OU) tea > Ps Ps fx] cS aE, 
= i - Y fx] fr] CL, = O 
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